home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS073.dsk / ART DOUGS THEME.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  32 lines
  1. 1  REM      ***DOUG'S THEME***
  2. 2  REM  BY DOUG PETER, 10/30/1980      FOR THE NSAUG CONTEST
  3. 3  REM 
  4. 4  REM  THIS PROGRAM IS AN OFF-
  5. 5  REM  SHOOT OF THE CONTRIBUTED
  6. 6  REM  PROGRAM,"BRIAN'S THEME".
  7. 7  REM  THE DIFFERENCE IS, IN
  8. 8  REM  BRIAN'S THEME, THE LINES
  9. 9  REM  BEGIN AT A RANDOM POINT.
  10. 10  REM  IN DOUG'S THEME, THE
  11. 11  REM  POINTS ARE FIXED ON THE
  12. 12  REM  BORDERS. ANOTHER DIFFER-
  13. 13  REM  ENCE: THE LINES IN DOUG'S
  14. 14  REM  THEME END ON THE CENTER
  15. 15  REM  LINE, NOT THE BORDERS.
  16. 16  CALL  -936: VTAB 22: PRINT "         *** DOUG'S THEME ***": HGR 
  17. 17 S = 3
  18. 18 E =  RND(1): IF E <0.3  THEN S = 2
  19. 19  IF E >0.5  THEN S = 4
  20. 20  FOR W = S TO 160  STEP S: HCOLOR= 3: HPLOT 2,80 TO 132,W: HCOLOR= 4: HPLOT 4,78 TO 132,(W -S): VTAB 23: PRINT "             STEPPING BY "S: NEXT W
  21. 24 S = 3
  22. 25 E =  RND(1): IF E <0.3  THEN S = 2
  23. 26  IF E >0.5  THEN S = 4
  24. 30  FOR X = S TO 260  STEP S: HCOLOR= 3: HPLOT X,78 TO 130,160: HCOLOR= 4: HPLOT (X -S),78 TO 128,160: VTAB 23: PRINT "             STEPPING BY "S: NEXT X
  25. 34 S = 3
  26. 35 E =  RND(1): IF E <0.3  THEN S = 2
  27. 36  IF E >0.5  THEN S = 4
  28. 40  FOR W = 160 TO S  STEP  -S: HCOLOR= 3: HPLOT 130,W TO 260,80: HCOLOR= 4: HPLOT 130,(W +S) TO 260,82: VTAB 23: PRINT "             STEPPING BY "S: NEXT W
  29. 44 S = 3
  30. 45 E =  RND(1): IF E <0.3  THEN S = 2
  31. 46  IF E >0.5  THEN S = 4
  32. 50  FOR X = 260 TO S  STEP  -S: HCOLOR= 3: HPLOT 130,2 TO X,80: HCOLOR= 4: HPLOT 132,2 TO (X +S),80: VTAB 23: PRINT "             STEPPING BY "S: NEXT X: GOTO 17